home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / hardware / palmlink / arexx / test.rx
Text File  |  1999-05-14  |  3KB  |  125 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  test.rx     A small test for PalmLink's ARexx interface     **
  4. **                                                              **
  5. ******************************************************************
  6. **
  7. **      (c) 1999 by Richard Körber -- All Rights Reserved
  8. **
  9. **      You may use this example freely for your own programs.
  10. */
  11.  
  12.  
  13. /* Add the library functions */
  14. CALL AddLib("/libs/palmlink.library",0,-30,0)
  15.  
  16. /* Catch errors for a clean exit */
  17. SIGNAL ON ERROR
  18. SIGNAL ON SYNTAX
  19.  
  20. /* Open a socket and the conduit */
  21. CALL PALM_OpenSocket('socket','SB=57600 SD=serial.device SU=0')
  22. SAY "Press the HotSync button now..."
  23. CALL PALM_Accept('socket','')
  24. CALL PALM_OpenConduit('socket')
  25.  
  26. /* Get System Information */
  27. CALL PALM_GetSysInfo('socket','SYS')
  28. SAY "PALM_GetSysInfo"
  29. SAY "  SYSNAME:   " SYS.SYSNAME
  30. SAY "  ROMVERSION:" SYS.ROMVERSION
  31. SAY "  LOCALIZION:" SYS.LOCALIZION
  32. SAY ""
  33.  
  34. /* Get Storage Information */
  35. CALL PALM_GetStorageInfo('socket','','STORAGE')
  36. SAY "PALM_GetStorageInfo"
  37. SAY "  NAME:      " STORAGE.NAME
  38. SAY "  MANUFACT.: " STORAGE.MANUFACTURER
  39. SAY "  CARDNO:    " STORAGE.CARDNO
  40. SAY "  VERSION:   " STORAGE.VERSION
  41. SAY "  CREATED:   " STORAGE.CREATED
  42. SAY "  ROMSIZE:   " STORAGE.ROMSIZE
  43. SAY "  RAMSIZE:   " STORAGE.RAMSIZE
  44. SAY "  RAMFREE:   " STORAGE.RAMFREE
  45. SAY ""
  46.  
  47. /* Get all RAM database information */
  48. INDEXX = 0
  49. SAY "PALM_GetDBInfo"
  50. DO FOREVER
  51.   HASMORE = PALM_GetDBInfo('socket',INDEXX,'INFO')
  52.   SAY "  NAME:      " INFO.NAME
  53.   SAY "  INDEX:     " INFO.INDEX
  54.   SAY "  CREATED:   " INFO.CREATED
  55.   SAY "  MODIFIED:  " INFO.MODIFIED
  56.   SAY "  BACKUPPED: " INFO.BACKUPPED
  57.   SAY "  VERSION:   " INFO.VERSION
  58.   SAY "  CREATOR:   " INFO.CREATOR
  59.   SAY "  TYPE:      " INFO.TYPE
  60.   SAY "  FLAGS:     " INFO.FLAGS
  61.   SAY "  EXCLUDE:   " INFO.EXCLUDE
  62.   SAY ""
  63.   INDEXX = INFO.INDEX+1
  64.   IF HASMORE==0 THEN LEAVE
  65. END
  66.  
  67. /* Get NetSync information */
  68. CALL PALM_NetSyncInfo('socket','','NSI')
  69. SAY "PALM_NetSyncInfo"
  70. SAY "  LANSYNC:   " NSI.LANSYNC
  71. SAY "  HOSTNAME:  " NSI.HOSTNAME
  72. SAY "  HOSTADDR:  " NSI.HOSTADDRESS
  73. SAY "  HOSTSNM:   " NSI.HOSTSUBNETMASK
  74. SAY ""
  75.  
  76. /* Get System time */
  77. CALL PALM_SysTime('socket','','SYST')
  78. SAY "PALM_SysTime"
  79. SAY "  TIME:      " SYST.TIME
  80. SAY "  SECOND:    " SYST.SECOND
  81. SAY "  MINUTE:    " SYST.MINUTE
  82. SAY "  HOUR:      " SYST.HOUR
  83. SAY "  DAY:       " SYST.DAY
  84. SAY "  MONTH:     " SYST.MONTH
  85. SAY "  YEAR:      " SYST.YEAR
  86. SAY ""
  87.  
  88. /* Get User info */
  89. CALL PALM_UserInfo('socket','','UI')
  90. SAY "PALM_UserInfo"
  91. SAY "  USERID:    " UI.USERID
  92. SAY "  VIEWERID:  " UI.VIEWERID
  93. SAY "  LASTSYNCPC:" UI.LASTSYNCPC
  94. SAY "  LASTSYNC:  " UI.LASTSYNC
  95. SAY "  SUCC.SYNC: " UI.SUCCESSFULSYNC
  96. SAY "  USERNAME:  " UI.USERNAME
  97. SAY "  PASSWORD:  " UI.PASSWORD
  98. SAY ""
  99.  
  100. /* Add some lines to the Sync Log */
  101. CALL PALM_AddSyncLogEntry('socket','"ARexx Test done..."')
  102. CALL PALM_AddSyncLogEntry('socket','"Amiga made it possible! :-)"')
  103.  
  104. /* Close the socket */
  105. CALL PALM_EndOfSync('socket','')   /* Never forget this! */
  106. CALL PALM_CloseSocket('socket')
  107. SAY "Done..."
  108.  
  109. EXIT
  110.  
  111.  
  112. /* Catch an error */
  113. ERROR:
  114.   SAY "** ERROR **"
  115.   CALL PALM_CloseSocket('socket')
  116.   EXIT
  117.  
  118. /* Catch a syntax error */
  119. SYNTAX:
  120.   SAY "** SYNTAX ** in line " SIGL ":" ERRORTEXT(RC)
  121.   CALL PALM_CloseSocket('socket')
  122.   EXIT
  123.  
  124.  
  125.